home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / networking / amitcp / amislate1.0.lha / AmiSlate1.0 / SlateRexx / diamond.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-13  |  916 b   |  40 lines
  1. /* An Arexx script for use with AmiSlate:  
  2.  
  3.     Draws that "diamond out of straight lines" design that
  4.     was so nifty in elementary school ;-)
  5.     
  6. */
  7. parse arg CommandPort ActiveString
  8.  
  9. address (CommandPort)
  10. options results
  11.  
  12. /* Calculate center of drawing area */
  13. GetWindowAttrs stem win.
  14. mx = trunc((win.width-58)/2)
  15. my = trunc((win.height-53)/2)
  16. tx = mx * 2
  17. ty = my * 2
  18.  
  19. /* Get user's current foreground color */
  20. GetStateAttrs stem state.
  21. SetFPen state.fpen        /* copy it to our color */
  22.  
  23. x = 0
  24. y = 0
  25.  
  26. StringRequest stem message. '"'||"Diamond Request"||'"' 15 '"'||"How many partitions in the diamond?"||'"'
  27. numberofpartitions = message.message
  28. xstep = trunc((mx * 2) / numberofpartitions)
  29. ystep = trunc((my * 2) / numberofpartitions)
  30.  
  31. /* upper left quadrant */
  32. x = 0
  33. y = my
  34. do while (y <= my)
  35.     line x my mx y
  36.     line x (ty - my) mx (ty - y)
  37.     x = x + xstep
  38.     y = y - ystep
  39.     if (y <= 0) then ystep = -abs(ystep)
  40. end